home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_JSBRWPOP.ASP1 < prev    next >
Encoding:
Text File  |  1999-06-03  |  899 b   |  35 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <% Option Explicit %>
  3. <!-- #include file="../directives.inc" -->
  4.  
  5. <!--#include file="jsbrowser.str"-->
  6.  
  7. <% 
  8. Const LARGE = 1 
  9.  
  10. Dim pg
  11.  
  12. pg=Request.QueryString("pg")
  13. if Request("jsfontsize") <> "" then
  14.     Session("JSFONTSIZE") = Request("jsfontsize")    
  15. else
  16.     Session("JSFONTSIZE") = LARGE        
  17. end if
  18.  
  19. %>
  20.  
  21. <HTML>
  22. <HEAD>
  23. <TITLE><%= L_TITLE_TEXT %></TITLE>
  24. </HEAD>
  25. <% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") then %>
  26. <FRAMESET ROWS="100%" COLS="100%"  BORDER=NO FRAMESPACING=1 FRAMEBORDER=0>
  27.     <FRAME SRC="<%= pg %>" NAME="main" SCROLLING=NO FRAMESPACING=0 BORDER=NO  MARGINHEIGHT=5 MARGINWIDTH=5>
  28. </FRAMESET>
  29. <% else %>
  30. <FRAMESET ROWS="*,0" COLS="100%" BORDER=NO FRAMESPACING=1 FRAMEBORDER=0>
  31.     <FRAME SRC="<%= pg %>" NAME="main" SCROLLING=NO FRAMESPACING=0 BORDER=NO MARGINHEIGHT=5 MARGINWIDTH=5>
  32. </FRAMESET>
  33. <% end if %>
  34. </HTML>
  35.